Périmèetres 











MainForm.vb 





FormPenmetre.vh Form Per imetr T J Design] = X PerimetersForm.wb [Design] MainForm.vb [Design] 























a FormPerimetre 


Les Périmetres 


Coté 


Carre | Calculer 


Longueur Largeur 


Rectangle [|| | [akue 


Rayon 


Cercle D | clue 





Public Class FormPerimetre 
Private Sub btnPerimetreCarre Click(sender As Object, e As EventArgs) Handles 
btnPerimetreCarre.Click 
Dim Perimetre As Decimal 
Perimetre = txtCote.Text * 4 
MsgBox("Le perimetre du carre = 
End Sub 


& Perimetre) 


Private Sub btnPerimetreRect Click(sender As Object, e As EventArgs) Handles 
btnPerimetreRect.Click 
Dim Perimetre As Decimal 
Dim longueur As Decimal = txtLong.Text 
Dim larg As Decimal = txtLarg.Text 
Perimetre = (longueur + larg) * 2 


MsgBox("Le périmètre du rectangle = " & Perimetre) 


End Sub 


Private Sub btnPerimetreCercle Click(sender As Object, e As EventArgs) Handles 
btnPerimetreCercle.Click 
Dim Perimetre As Decimal 
Const pi As Decimal = 3.14 


Perimetre = 2 * pi * txtRayon.Text 
MsgBox("Le périmètre du cercle = " 
End Sub 
End Class 


& Perimetre) 


